home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 December / macformat-019.iso / Shareware City / Applications / LabHelper 4.01 Folder / LabHelper 4.01 / LabHelper 4.01.rsrc / LENS_138_ObjectMaster < prev    next >
Encoding:
Text File  |  1994-08-24  |  6.9 KB  |  117 lines
  1. ItemType: WIND
  2. Rect: 250,139,390,163
  3. Style: Windoid
  4. HasTitleBar: FALSE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 140,24
  9. MaxSize: 305,137
  10. Name: ObjectMaster
  11. TextFont: Geneva
  12. TextSize: 9
  13. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then¬  put empty into theFonts¬  repeat with x=1 to the number of menuitems in menu "font"¬    get menuitem x of menu "font"¬    put it & return after theFonts¬  end repeat¬  wsSet wdID,"10","Text", theFonts¬  wsSet wdID,"10","Selection", "1"¬  wsSet wdID,"11","Selection", "3"¬  wsSet wdID,"12","Selection", "1"¬  ¬else if objValue="Close" then ¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent
  14.  
  15. ItemType: CNTL
  16. Rect: 4,6,72,19
  17. TextFont: Chicago
  18. TextSize: 10
  19. Name: Buttons
  20. Style: 480
  21. Min: 0
  22. Max: 100
  23. Value: 0
  24. Step: 1
  25. Leap: 10
  26. Script: if objValue is true then¬  wsSet wdID,objNo,"HILITE",false¬  wsSend wdID,"ZOOMIN"¬else¬  set cursor to watch¬  wsSet wdID,objNo,"HILITE",true¬  wsSet wdID,2,"HILITE",false¬  put empty into btnText¬  repeat with x = 1 to number of cd btns¬    if the visible of cd btn x then¬      get name of cd btn x¬      put "cd btn" into word 1 to 2 of it¬      put it & numtochar(194) after btnText¬    end if¬  end repeat¬  repeat with x = 1 to number of bg btns¬    if the visible of bg btn x then¬      get name of bg btn x¬      put "bg btn" into word 1 to 2 of it¬      put it & numtochar(194) after btnText¬    end if¬  end repeat¬  ¬  put "btnList_TEXT:"&btnText&return into toSet¬  put "xObjType: BTN"&return after toSet¬  put "i0_ZOOMOUT"&return after toSet¬  ¬  put "Name_TEXT:"&return after toSet¬  put "TOP_TEXT:"&return&"LEFT_TEXT:"&return after toSet¬  put "HEIGHT_TEXT:"&return&"WIDTH_TEXT:"&return after toSet¬  ¬  set Properties of window wdName to toSet¬  ¬end if
  27.  
  28. ItemType: CNTL
  29. Rect: 76,6,136,19
  30. TextFont: Chicago
  31. TextSize: 10
  32. Name: Fields
  33. Style: 480
  34. Min: 0
  35. Max: 100
  36. Value: 0
  37. Step: 1
  38. Leap: 10
  39. Script: if objValue is true then¬  wsSet wdID,objNo,"HILITE",false¬  wsSend wdID,"ZOOMIN"¬else¬  set cursor to watch¬  wsSet wdID,objNo,"HILITE",true¬  wsSet wdID,1,"HILITE",false¬  put empty into fldText¬  repeat with x = 1 to number of cd flds¬    if the visible of cd fld x then¬      get name of cd fld x¬      put "cd fld" into word 1 to 2 of it¬      put it & numtochar(194) after fldText¬    end if¬  end repeat¬  repeat with x = 1 to number of bg flds¬    if the visible of bg fld x then¬      get name of bg fld x¬      put "bg fld" into word 1 to 2 of it¬      put it & numtochar(194) after fldText¬    end if¬  end repeat¬  ¬  put "btnList_TEXT: "&fldText&return into toSet¬  put "xObjType: FLD"&return after toSet¬  put "i0_ZOOMOUT" after toSet¬  ¬  set properties of window wdName to toSet¬end if¬
  40.  
  41. ItemType: LIST
  42. Rect: 4,24,136,134
  43. Name: BtnList
  44. Text: 
  45. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬set cursor to watch¬put empty into toSet¬if number of items in objValue = 1 then¬  put BtnList_SelectionText of window wdName into o¬  do "Get short name of o"¬  if word 2 to 3 of it ="button id" then get empty¬  put "Name_TEXT:"&&it&return after toSet¬  do "Get the textFont of o"¬  put "Font List_SelectionText:"&&it&return after toSet¬  do "Get the textSize of o"¬  put "Size List_SelectionText:"&&it&return after toSet¬  do "Get the textStyle of o"¬  put "Style List_SelectionText:"&&it&return after toSet ¬  do "Get rect of o"¬  put "TOP_TEXT:"&&item 2 of it&return after toSet¬  put "LEFT_TEXT:"&&item 1 of it&return after toSet¬  put "HEIGHT_TEXT:"&&(item 4 of it)-(item 2 of it)&return after toSet¬  put "WIDTH_TEXT:"&&(item 3 of it)-(item 1 of it)&return after toSet¬else¬  put "Name_TEXT:"&return after toSet  ¬  put "Font List_Selection: 0"&return after toSet¬  put "Size List_Selection: 0"&return after toSet¬  put "Style List_Selection: 0"&return after toSet¬  put "TOP_TEXT:"&return&"LEFT_TEXT:"&return after toSet¬  put "HEIGHT_TEXT:"&return&"WIDTH_TEXT:"&return after toSet¬end if¬set Properties of window wdName to toSet¬¬--end mouseUp
  46.  
  47. ItemType: TEXT
  48. Rect: 146,6,295,18
  49. Name: Name
  50. StyleRun: 0,1;Geneva;9;Plain;0,0,0
  51. Selection: 0,32767
  52. Script: put BtnList_SelectionText of window wdName into ol¬put empty into newNames¬repeat with x = 1 to number of lines in ol¬  put line x of ol into o¬  do "set name of o to objValue"¬  put (word 1 to 2 of ol) && quote&objValue"e&return after newNames¬end repeat¬set btnList_TextOfSelection of window wdName to newNames¬
  53.  
  54. ItemType: LBL
  55. Rect: 145,106,296,118
  56. Text:  Top    Left   Height  Width
  57.  
  58. ItemType: TEXT
  59. Rect: 142,117,180,133
  60. Name: Top
  61. LockText: FALSE
  62. TextAlign: Center
  63. KeyFilter: OnlyDigits
  64. Script: if objValue is not empty then¬  put BtnList_SelectionText of window wdName into ol¬  repeat with x = 1 to number of lines in ol¬    put line x of ol into o¬    do "set top of o to objValue"¬  end repeat¬end if
  65.  
  66. ItemType: TEXT
  67. Rect: 181,117,219,133
  68. Name: Left
  69. LockText: FALSE
  70. TextAlign: Center
  71. KeyFilter: OnlyDigits
  72. Script: if objValue is not empty then¬  put BtnList_SelectionText of window wdName into ol¬  repeat with x = 1 to number of lines in ol¬    put line x of ol into o¬    do "set LEFT of o to objValue"¬  end repeat¬end if
  73.  
  74. ItemType: TEXT
  75. Rect: 220,117,258,133
  76. Name: Height
  77. LockText: FALSE
  78. TextAlign: Center
  79. KeyFilter: OnlyDigits
  80. Script: if objValue is not empty then¬  put BtnList_SelectionText of window wdName into ol¬  repeat with x = 1 to number of lines in ol¬    put line x of ol into o¬    do "set HEIGHT of o to objValue"¬  end repeat¬end if
  81.  
  82. ItemType: TEXT
  83. Rect: 259,117,299,133
  84. Name: Width
  85. LockText: FALSE
  86. TextAlign: Center
  87. KeyFilter: OnlyDigits
  88. Script: if objValue is not empty then¬  put BtnList_SelectionText of window wdName into ol¬  repeat with x = 1 to number of lines in ol¬    put line x of ol into o¬    do "set WIDTH of o to objValue"¬  end repeat¬end if
  89.  
  90. ItemType: POP
  91. Rect: 176,24,195,37
  92. Name: Font List
  93. Script: if objValue is not empty then¬  put BtnList_SelectionText of window wdName into ol¬  repeat with x = 1 to number of lines in ol¬    put line x of ol into o¬    do "set the textFont of o to objValue"¬  end repeat¬end if
  94.  
  95. ItemType: POP
  96. Rect: 176,56,228,69
  97. Name: Size List
  98. Text: 9¬10¬12¬14¬16¬18
  99. Script: if objValue is not empty then¬  put BtnList_SelectionText of window wdName into ol¬  repeat with x = 1 to number of lines in ol¬    put line x of ol into o¬    do "set the textSize of o to objValue"¬  end repeat¬end if
  100.  
  101. ItemType: POP
  102. Rect: 176,88,258,101
  103. Name: Style List
  104. Text: Plain¬Bold¬Italic¬Underline¬Outline¬Shadow¬Condense¬Extend
  105. Script: if objValue is not empty then¬  put BtnList_SelectionText of window wdName into ol¬  repeat with x = 1 to number of lines in ol¬    put line x of ol into o¬    do "set textStyle of o to objValue"¬  end repeat¬end if
  106.  
  107. ItemType: LBL
  108. Rect: 143,24,170,36
  109. Text: Font:
  110.  
  111. ItemType: LBL
  112. Rect: 144,57,171,69
  113. Text: Size:
  114.  
  115. ItemType: LBL
  116. Rect: 144,88,176,100
  117. Text: Style: